home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / program function (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  1KB  |  32 lines
  1. 5 FORN=49152TO49385:READA:POKEN,A:NEXT
  2. 10 FORN=0TO7
  3. 20 PRINT"F"N+1"=";:INPUTF$
  4. 30 IF LEN(F$)>10THENX$=LEFT$(X$,10)
  5. 40 FORX=1TOLEN(F$)
  6. 50 X$=MID$(F$,X,1)
  7. 60 IFX$="_"THENX$=CHR$(13)
  8. 65 IFX$=""THEN85
  9. 70 POKE49385+N*10+X,ASC(X$)
  10. 80 NEXT
  11. 85 FORR=XTO10:POKE49385+N*10+R,0:NEXT
  12. 90 NEXT
  13. 100 SYS12*4096
  14. 110 NEW
  15. 200 DATA 120, 162, 13, 160, 192, 142, 20, 3, 140, 21, 3, 88, 96, 72
  16. 201 DATA  138, 72, 152, 72, 165, 215, 201, 133, 240, 37, 201, 137, 240, 56
  17. 202 DATA  201, 134, 240, 75, 201, 138, 240, 91, 201, 135, 240, 107, 201, 139
  18. 203 DATA  240, 123, 201, 136, 208, 3, 76, 187, 192, 201, 140, 208, 3, 76
  19. 204 DATA  207, 192, 76, 226, 192, 162, 0, 189, 234, 192, 201, 0, 208, 3
  20. 205 DATA  76, 224, 192, 157, 119, 2, 232, 224, 10, 208, 238, 76, 224, 192
  21. 206 DATA  162, 0, 189, 244, 192, 201, 0, 208, 3, 76, 224, 192, 157, 119
  22. 207 DATA  2, 232, 224, 10, 208, 238, 76, 224, 192, 162, 0, 189, 254, 192
  23. 208 DATA  201, 0, 240, 108, 157, 119, 2, 232, 224, 10, 208, 241, 76, 224
  24. 209 DATA  192, 162, 0, 189, 8, 193, 201, 0, 240, 88, 157, 119, 2, 232
  25. 210 DATA  224, 10, 208, 241, 76, 224, 192, 162, 0, 189, 18, 193, 201, 0
  26. 211 DATA  240, 68, 157, 119, 2, 232, 224, 10, 208, 241, 76, 224, 192, 162
  27. 212 DATA  0, 189, 28, 193, 201, 0, 240, 48, 157, 119, 2, 232, 224, 10
  28. 213 DATA  208, 241, 76, 224, 192, 162, 0, 189, 38, 193, 201, 0, 240, 28
  29. 214 DATA  157, 119, 2, 232, 224, 10, 208, 241, 76, 224, 192, 162, 0, 189
  30. 215 DATA  48, 193, 201, 0, 240, 8, 157, 119, 2, 232, 224, 10, 208, 241
  31. 216 DATA  134, 198, 104, 168, 104, 170, 104, 76, 49, 234
  32.